Теперь нам нужно выбрать тему по названию. Так как сам вид мы выбрали в прошлый раз, то теперь нам нужно узнать есть ли метод у объекта Doc для выбора темы по имени. Смотрим код.

theView = av.FindDoc("View1")

if (theView<>nil) then

 theTheme = theView.FindTheme("Base.shp") 

 if (theTheme<>nil) then
 
 else
   MsgBox.Info( "No Theme", "")
 end

else
  MsgBox.Info( "No View", "")
end

Все повторилось. Мы ищем тему по имени. В случае успеха у нас будет объект тема, иначе нечего, только сообщение.

Метод FindTheme находит тему, названную aName

aView.FindTheme (aName)